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IFAB AND IRAB INDEX TABLE ROUTINES 


DECLARATIONS 
RMSGTIADR = INDEX TO TABLE ADDR 
RMSGTSLT = L 


1 E N 
INDEX TABLE SLOT AL NE 


16-SEP-1984 00:24:31 


ROUTINE 
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DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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Facility: RMS32 


Abstract: 
This module contains the routines to allocate 
ifab and irab index table slots and to return 
the ifab or irab address from an ifi or isi 
value respectively. 


Environment: 
Star processor running Starlet exec. 


Author: L. F. Laverdure Creation Date: 3-JAN-1977 
Modified By: 


v03-005 Lys A0050 e J. Anderson 12-Jan-1983 
4, in IFI/ISI bourse in IFB/IRB upon finding slot in 


— popping of R6 (on restart) in rm$gtslt. If error, on 
restart, R6 was not restored. 


V03-004 LJA0024 Laurie Anderson 05-0ct-1982 
Fix some problems with restarting when the IFI/ISI is large 
enough to cause the allocation of a chain of index tables. 


v03-003 LJA0018 Laurie Anderson 03-Sep-1982 
To enable the restart to re-open/re-connect to same IFI/ISI, 
adits RMSGTSLT. If provided with an IFI/ISI on input, then 
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00 28 ; use that one rather than the next available empty slot. 
00 23 ; If that slot can not be provided, then return an error. 
$0 61 ; v03-002 KBT0305 Keith B. Thompson 28-Aug-1982 
B08 6¢ : Reorganize psects 
$00 64 : v03-001 KBT0102 Keith B. Thompson 13-Jul-1982 
B50 9? ; Clean up psects 
0000 89 : v02-013 CDS0001 C Saether 10-Dec-1981 
806 re: ; Rename psect. 
$000 % : V02-012 REFORMAT K. E. Kinnear 31-Jul-1980 
0000 rs 3 
0000 72 3° 
0000 73 
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++ 
RMSGTIADR == Index to Table Address Conversion Routine. 


This subroutine converts an ifi or isi table index value 
into the address of the related ifab or irab respectively. 


; Calling sequence: 
BSBW RMSGTIADR 
; Input Parameters: 


R11 image impure area address 

R9 index value (ifi or isi). ee : 

R7 mode of caller (only if ifi or isi indicates direct 
access to a process permanent file) 

RO IFAB or IRAB index table offset / 4 


Implicit Inputs: 
none 
Output Parameters: 


R9 IFAB or IRAB address 
RO destroyed 


if ifi or isi < 0 and not user mode: 
R11 process i/o impure area addr 
Implicit Outputs: 
none 
; Completion Codes: 
Z-bit set if invalid ifi or isi, clear otherwise. 
; Side Effects: 
none 
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RMSGTIADR: : 
TSTW 
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59 ~=B5 ST R9 3; non-standard ifi/isi? 
19 15 0 BLEQ 50$ 3; branch if ppf format or zero 
50 6840 00 0 5$: MOVL (R11)CROJ,RO ; get table addr 
20 aB «559°—s«B1SsCO000 10$:  CMPW R9,IMP$W_ENTPERSEG(R11) ; in this table segment? 
05 1A 0 BGTRU 30$ : branch if not 
59 6049 00 MOVL (RO)CR9I,R9 3; set ifab/irab addr 
01 3 mote: may be zero. 
05 4 RSB 
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v04-0 RMSGTIADR - 71982 99:54:8h MO! — 
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: The input ifi/isi value does not map to this segment 
; of the index table - try the next segment. 


59 20 AB A 30$ SUBW2 IMPS$W piharseenede ROY ; reduce the index value 
50 60 OD MOVL (RO),R ; get Link to next table seg 
se - 3 BNEQ 10$ 3; and keep try ying. f any more 
0 40$: RSB 3; return with z-bit set 


A negative isi or ifi has been input. 


a valid cases exist. depending upon the state of bit 14: 

: (bit 1420) - a <y mode caller desires to operate 

; on the ppf directly 

s - (bit 1421) - a sailor desires to operate on the ppf indirectly 


If access allowed switch to the process permanent files ifab or 
irab table in the process i/o segment. 


User attempting direct access to a process permanent file 
or has a bad isi value. 
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Ok tt sk a a a ~~ 
OOOO OO 000009 000900 09 09 09 098 SII NI NSIS SNA OAOAAAAAOOOU 
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60$: CLRL RO ; it's a no-no 
RSB 


FD §6©13 50$ BEQL 40$ ‘ branch if zero ifi/isi (error) 
05 59 OE €0 BBS #FABSV_PPF IND. R9,55$ : branch if indirect access 
_ eet ae CMPB R7,#PSC$C_OSE : direct access attempt from user mode? 
OE 13 BEQL 3 ereer if user 
5B GO0000000'9F ODE 55$: MOVAL a#PIO$GW_PIOIMPA,R11 3; switch impure pointers 
59 FFCO oe AA BICW2 #<<1aRABSV_PPF _RAT>=1> \ <tlaleo-1>- R9; clear all but table index 
12 BNEQ 5$ 3; and continue if non-zero 
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p++ 
; RMSGTSLT == Index Table Slot Allocation Routine. 
This routine scans the ifab or irab index table for 
an empty slot and if found sets the slot to the associated 
ifab or irab address, returning the index value of the slot. 
If an IFI/ISI is provided on input, this routine will attempt to 
allocate that slot in the IFAB/ RAB index table. If that slot is 
not available (due to DME or slot already in use), then an error is 
returned. 
Calling Sequence: 
BSBwW RMSGTSLT 


Input Parameters: 


R11 rocess or snoge impure area address 
R9 FAB or IRAB address 
R5 IFAB or IRAB index table start address 


If this is a restart operation, the following additional inputs: 
R6 IFI/ISI (the desired particular slot) 


Implicit Inputs: 
none 
Output Parameters: 
R6 table index value (i.e., ifi or isi) 
RT R2,R3 RG RS eivenel 
Implicit Outputs: 
The allocated table slot is set to the contents of r9. 
Completion Codes: 
Standard RMS, in particular, success or dme. 
Side Effects: 


none 


Be Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Be Ge Be Ge Ge Se Ge Se Ge Ge Ge Be Ge Se Ge Ge Ge Ge Se Se Se Ge Ge Se Se Se Se Ge Se Se 


RMSGTSLT:: 
ASSUME IFBS$V_RESTART EQ presy RESTART ; 
BBS #IFBSO_RESTART,(R9),23$8 ; Branch if restart operation 
CLRL R6 ; build index value here 
ah ; R1 points to first table entry, | 
; while saving RS = pointing to Link 
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20$: 


23$: 


25$: 


27$: 


ABLE ROUTI 
E SLOT ALL 


MOVZWL 
INCL 
TSTL 
BEQL 
SOBGTR 


-— 


No free slot 


If this is a 
index table. 


SUBW2 
MOVL 


s this table segment - 
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OCATION R 5=SEP-1984 16:21:55 CRMS.SRCIRMOIFISI.MAR;1 
IMPSW_ENTPERSEG(R11),RO ; # entries per table segment 
R6 ; bump index 
(R1)+ ; zero slot? 
508 ; branch if yes = go use it 
RO,20$ ; keep scanning segment 


try next if any. 


another segment? 
branch if none 
; update Link 


restart operation, attempt to allocate the same slot in the 


R6 

#4,R5,R1 

6 IMP$W_ENTPERSEG(R11) 
(R5)CR6) 


ER wi 

RO, (RS) CR6) 

IMPSW_ NUM_IFABS(R11) 
608 


po] 
vn 


: Had to allocate more table segment space. 


Save the desired IFI/ISI 

R1 points _ first table entry 

while savin A i - dia to “Link 

Is this IFI/ISI in this table segment? 


; Branch if not le this segment 


Is this slot asreaey being used? 
Used - return erro 

Put argh es aaurese in table slot 
count # ifabs in use 

Return success 


See if index maps into this segment 


NTPERSEG(R11),R6 ; reduce the index value 


Update the index table Links 
try next table segment 
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anole ist IFAB_AND IRAB INDEX TABLE ROUTINES 19-360" 198% 90:36:31 AX/VMS Macro v04-00 
v04- RMSGTSLT = INDEX TABLE SLOT ALLOCATION R 5=SEP=-1984 16:21:55 RMS.SRCIRMOIFISI.MAR;1 (6) | 
o7¢ 
7¢ 3 
7¢ ; No free slots in existing segments. 
7¢ : If process i/o Seppens. return an error, otherwise 
th: ; add a segment to the table. 
o7¢ , 
07¢ ASSUME IMPSW_RMSSTATUS EQ 0 
or ASSUME IMPS$V~110S EQ 0 
41 6B E9 bore 30$: BLBC (R11) ,ERRDME ; branch if pio segment 
51 09900090 "9 DE O07F MOVAL @#PIOSGL_IIOFSPLH,R1 _ : impure area addr 
52 AB C 0086 MOVZWL IMPS$W_ENTPERSEG(R11),R2 : # entries | 
5 6 QOBA INCL Rg ; +1 = # longwords 
52 52 02 78 008C¢ ASHL #2,R2,R2 3 = # bytes required 
PFED*® 30 0099 BSBW § RMSGETSPC_ALT t get this much space 
i1¢ 50—s«éE 98 BLBC RO, RETURN ; branch if no space 
0096 : 
0096 ; Link in the new segment (address of space returned in R1 by get_spc) 
0096 3 and go back and use it. 
0096 ; 
0096 
65 51 DO 0096 MOVL R1,(R5) 3; update the old Link 
51 04 CO 0099 ADDL2 #4,R1 z and point R1 to the table 
03 69 38 £0 009C BBS #IFBSV_RESTART,(R9),27$ ; Branch if restart 
AS 11 QOAO BRB 208 ; and go use it 
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; Found a free slot. 
; Store the IFAB or IRAB address in the slot and return. 
Boas : Store the IFI/ISI value into the IFAB/IRAB 
00A ; 
71 59 DO OOA 50$: MOVL R9,-(R1) ; store structure address 
22 AB B6 Boag INCW IMP$W_NUM_IFABS(R11) ; count # ifabs in use 

00A 3 
i ; Flag the ifi or isi value if this is the process i/o segment. 
00A ; 
0Q0A ASSUME IMPSW_RMSSTATUS EQ 0 

he ASSUME IMP$V_IIOS EQ 0 

04 6B £8 80a BLBS (R11) ,60$ ; branch if image i/o segment 

OOAB SSB #15,R6 ; set pio segment flag 

OOAF 60$: 
QOAF ASSUME IFBSW_IFI EQ IRB$W_ISI 

OAF RMSSUC 

082 RETURN: 

03 69 38  €1 006 BBC #IFBSV_RESTART,(R9),80$ ; If not rosters ing do not pop 
56 8ED0 086 POPL : Restore the IFI/ISI 
28 a9 «6556 S90 «(008 80$:  MOVB R6,1FBSW_IFI(R9) ; Fill im IFI/ISI value into IFAB/IRAB 
50 05 008d TSTL RO 3; Set condition code for return 
05 F RSB 
‘ 
oc 3 


RMOIFI 
v04-00 


3! 


EB 


07 08 A9 
E0 
d9 


11 


E8 
11 
11 


OOOGOOCCCOCGOOCOCOOOCCOSOCO r2Za 
VWONANANAAAAAAAA|AN|AOQ}OON|HOA Ao 


_— 
—-> 
z2@m 
LJ 


AWWIWAINAAAAAANAANNWINAAIO 


SDP PPAEAP AAA AAS MAIN 
SOOONAOUE WO OONOAOUES WO) Me 


xz 
J 
=m 
Pad 
ao ® 
eo r- 
cc m> 


: Indicate that 
ERRRST: 


100$: 
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L met tae h ty 90:64:31 AX/VMS Macro V04-00 Page 9 
SLOT ALLOCATION R 5=SEP-1984 16:21:55 CRMS.SRCIRMOIFISI.MAR; 1 (6). 
Ldn't allocate another page for new IRAB or IFAB | 
Le segment because in process i/o segment. 
" RMSERR DME 

BRB RETURN 3 return - restore R7 first 


the index table slot has already been used. 


<IFBSC_BID&1> EQ 1 : incase it's really irab 
<IRBSC_BID&1> EQ 0 

1F8$B8_B10 EQ IRB$B_BID 

IFBSB_BID(R9) ,100$ ; Do we have a ifab or irab 
ISI ; IRAB - Indicate ISI error 
RETURN 3 return - restore R7 first 
IF I ; IFAB - Indicate IFI error 
RETURN ; return - restore R7 first 


<z 


1 15 
RMOIFISI IFAB AND IRAB INDEX TABLE ROUTINES a i St 9 90: $43] AX/VMS Macro V04-00 Page 
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$$. 4339 EP = 608 00 
$SRM = 1A 
SERne. _PBUGCHK = $? 48 
SSRMS_TBUGCHK = 00 0 
SSRMS _UMODE = B38 04 
RROME 8 C0 R 4 
RST 0 5 R 1 
FABSV_PPF_IND = 09 ; 
IF BSB -Bid = 0000000 
1FBSC_BID = 44444 
FSV _R RESTART 5 990000 8 
IMP vri10s = itd $8 
insu apNTPERSES = 444 0 
IMP M_IFABS = 00000022 
IMPS “RMSSTATUS = 00000000 
IRB$B_BI1D = 00000008 
IRBS$C_BID = si 44 ty 
IRBSV_RESTART = 00000038 
IRBSW_ISI = 00000028 
PIO$GC_I1OF SPLH teeeeeee =X 07 
P1O0$GW_ PIOIMPA ekakeeee X 01 
PSLS$C_OSER = 00000003 
RABSV~PPF_RAT = 00000006 
urA 000000B2 R 01 
weeetl ios ALT ekteeken Xx 01 
RMSGTIAD 00000000 RG 01 
RMSeTSt tT. 00000039 RG 01 
RMS$_DME = 000184D4 
RMS$_IF 1 = 00018564 
RMS$_ISI = 00018584 
¢eocececocecocccn + 
: ,_Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
,. WS _«& 00000000 ( 9 00 ¢ "0. ) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMSO 000000D9 (« 217.) O1 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC QUAD 
SABS$ 00000000 < 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
dapuenesausennewencenaand 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 35 0:00:00;97 8:00: 1.12 
Command processin 125 0:00:00.66 0:00:03.89 
7s ° 307 8:00:08: 36 0:00:24..91 
Symbol table sort 0 B: 3: Todt 0:00: }-3) 
Pass 2 78 :00:01.75 8: . 4.32 
Symbol table output 4 00:00:00.06 200: 8.98 
pesct synopsis outeut 8: :00.01 3: 8: B- he 
ross-reference outpu :00:00. :00:00. 
Assembler run Bem ys 55 80; 0:1 28 0:00: 8°98 


J 15 
IFAB AND IRAB INDEX TABLE ROUTINES 19360-1388 90:64: 3] AX/VMS Macro V04-00 
SEP=1984 16:21:55 A 


emit tl 
VAX=11 Macro Run Statistics 6:21 RMS .SRCIRMOIFISI.MAR;1 


The working sat Limit was 1500 pages. 
50127 bytes (98 pages) of virtual memory were used to buffer the intermediate 7 ee 
There were 50 pages of symbol table space allocated to hold 958 non-local gnd 18 local symbols. 
70 source Lines were read in Pass 1, producing 15 object records in Pass 2. 
1 pages of virtual memory were used to define 20 macros. 


cee eoeeace eae seeeaonans eeceees 


+ 
H Macro Library statistics ! 


oor 


Macro Library name Macros defined 


-$255SDUA28: [RMS .OBJ JAMS .MLB; 10 
_$255$DUA28: CSYS.OBJJLIB.MLB;1 1 
$255$DUA28: CSYSLIBISTARLET.MLB;2 5 
TOTALS (all Libraries) 16 


1077 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMOIFISI1/OBJ=OBJ$:RMOIFISI MSRC$:RMOIFISI/UPDATE=(ENH$:RMOIF ISI) +EXECML$/LIB+L1IB$:RMS/LIB 


ENT CORPORATION 
AND PROPRIETARY 


